(display "测试使用define捕获continuation返回值\n")

(define result (call/cc (lambda (k) 
                          (k 42))))

(display "结果: ")
(display result)
(display "\n测试结束\n")